\ The key string
: 2defineString create 0 , ;
2defineString key

\ Get the saved key string
: GET_KEY_STRING ( -- a- n ) key 2@ ;

\ Save the key string
: SET_KEY_STRING ( " -- ) key 2! ;

\ Get the key length
: GET_KEY_STRING_LENGTH ( -- n )
	GET_KEY_STRING DUP ;
